home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_160_Other Separator < prev    next >
Text File  |  1998-02-04  |  1KB  |  32 lines
  1. ItemType: WIND
  2. Rect: 392,227,632,312
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: Other Separator
  7. WhiteColor: -8739,-8739,-8739
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then ¬  Centerwindow wdName,3¬else if objValue="Close" then ¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent
  9. Result: i4_Text
  10.  
  11. ItemType: PUSH
  12. Rect: 148,52,228,72
  13. AutoSize: FALSE
  14. Name: OK
  15. DefaultItem: TRUE
  16. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬get wsGet(wdID,"TheCharacter","Text")¬if it < 1 or it > 255 then¬  get windowScript("Stop Alert","The character must be between 1 and 255")¬else¬  wsSend "Other Separator","0","Close"¬end if¬--end mouseUp
  17.  
  18. ItemType: PUSH
  19. Rect: 57,52,137,72
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: LBL
  25. Rect: 11,15,180,31
  26. Text: ASCII value of character:
  27.  
  28. ItemType: TEXT
  29. Rect: 181,12,227,34
  30. Name: theCharacter
  31. LockText: FALSE
  32. KeyFilter: Only3Digits